home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9103b.d64
/
uebers. listing
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
963b
|
30 lines
0 ADRESSE = 49152:REM BELIEBIG
1 REM *******************
2 REM * WRITTEN BY *
3 REM *FRANK BARCIKOWSKI*
4 REM * MORAENENWEG 33 *
5 REM *3320 SALZGITTER-1*
6 REM *******************
10 FORI=ADRESSE TO ADRESSE+87
20 READ A:S=S+A:POKE I,A
30 NEXT
31 IF S<>10407THENPRINT"DATA ERROR!":END
35 REM DEM JEWEILIGEN BERREICH ANPASSEN
36 HI=INT((ADRESSE+11)/256)
37 LO=ADRESSE+11-INT((ADRESSE+11)/256)*256
38 POKE ADRESSE+6,HI
39 POKE ADRESSE+1,LO
40 SYS ADRESSE:POKE 2,0:END
50 REM ------------------------
60 REM EINSCHALTEN DER ERWEITERUNG :
70 REM POKE 2,0
80 REM ------------------------
90 REM AUSSCHALTEN DER ERWEITERUNG :
99 REM POKE 2,<>0
100 REM------------------------
101 DATA169,11,141,6,3,169,48,141,7,3,96,16,3,76,28,167,201,58,240,3,76,243
102 DATA166,166,2,240,3,76,243,166,169,13,32,210,255,152,72,160,2,177,95
103 DATA170,200,177,95,133,98,134,99,162,144,56,32,73,188,32,223,189,162
104 DATA0,189,0,1,240,3,232,208,248,169,32,32,210,255,202,208,250,104,168
105 DATA169,32,76,243,166,48,141,7,7,96